Filename | (eval 1112)[/usr/share/perl5/CGI.pm:932] |
Statements | Executed 4 statements in 11µs |
Eval Invoked At | /usr/share/perl5/CGI.pm line 932 |
Sibling evals | 1, 2, 3, 4 |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
24 | 2 | 1 | 43µs | 43µs | CORE:regcomp (opcode) | CGI::
21 | 4 | 2 | 36µs | 36µs | CORE:match (opcode) | CGI::
18 | 3 | 2 | 22µs | 22µs | CORE:subst (opcode) | CGI::
2 | 1 | 1 | 15µs | 18µs | cache | CGI::
6 | 1 | 1 | 9µs | 9µs | CORE:substcont (opcode) | CGI::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | # spent 18µs (15+2) within CGI::cache which was called 2 times, avg 9µs/call:
# 2 times (15µs+2µs) by CGI::header at line 76 of (eval 1110)[CGI.pm:932], avg 9µs/call | ||||
2 | 1 | 4µs | 3 | 5µs | my($self,$new_value) = self_or_default(@_); # spent 5µs making 3 calls to CGI::self_or_default, avg 2µs/call |
3 | 1 | 2µs | $new_value = '' unless $new_value; | ||
4 | 1 | 400ns | if ($new_value ne '') { | ||
5 | $self->{'cache'} = $new_value; | ||||
6 | } | ||||
7 | 1 | 5µs | return $self->{'cache'}; | ||
8 | } | ||||
9 | |||||
10 | ; | ||||
# spent 36µs within CGI::CORE:match which was called 21 times, avg 2µs/call:
# 12 times (16µs+0s) by CGI::header at line 31 of (eval 1110)[CGI.pm:932], avg 1µs/call
# 3 times (17µs+0s) by CGI::header at line 50 of (eval 1110)[CGI.pm:932], avg 6µs/call
# 3 times (2µs+0s) by CGI::header at line 54 of (eval 1110)[CGI.pm:932], avg 633ns/call
# 3 times (2µs+0s) by CGI::unescapeHTML at line 6 of (eval 1111)[CGI.pm:932], avg 567ns/call | |||||
# spent 43µs within CGI::CORE:regcomp which was called 24 times, avg 2µs/call:
# 12 times (22µs+0s) by CGI::header at line 28 of (eval 1110)[CGI.pm:932], avg 2µs/call
# 12 times (22µs+0s) by CGI::header at line 31 of (eval 1110)[CGI.pm:932], avg 2µs/call | |||||
# spent 22µs within CGI::CORE:subst which was called 18 times, avg 1µs/call:
# 12 times (8µs+0s) by CGI::header at line 28 of (eval 1110)[CGI.pm:932], avg 700ns/call
# 3 times (10µs+0s) by CGI::header at line 51 of (eval 1110)[CGI.pm:932], avg 3µs/call
# 3 times (3µs+0s) by CGI::unescapeHTML at line 9 of (eval 1111)[CGI.pm:932], avg 1µs/call | |||||
# spent 9µs within CGI::CORE:substcont which was called 6 times, avg 1µs/call:
# 6 times (9µs+0s) by CGI::header at line 51 of (eval 1110)[CGI.pm:932], avg 1µs/call |